home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / util / Mac F2C 1.3.sit / Mac F2C 1.3 / Mac F2C Libraries / libI77 Sources / iio.c < prev    next >
C/C++ Source or Header  |  1995-01-28  |  2KB  |  139 lines
  1. #include "f2c.h"
  2. #include "fio.h"
  3. #include "fmt.h"
  4. extern char *f__icptr;
  5. char *f__icend;
  6. extern icilist *f__svic;
  7. int f__icnum;
  8. extern int f__hiwater;
  9. z_getc(Void)
  10. {
  11.     if(f__recpos++ < f__svic->icirlen) {
  12.         if(f__icptr >= f__icend) err(f__svic->iciend,(EOF),"endfile");
  13.         return(*f__icptr++);
  14.         }
  15.     return '\n';
  16. }
  17. #ifdef KR_headers
  18. z_putc(c)
  19. #else
  20. z_putc(int c)
  21. #endif
  22. {
  23.     if(f__icptr >= f__icend) err(f__svic->icierr,110,"inwrite");
  24.     if(f__recpos++ < f__svic->icirlen)
  25.         *f__icptr++ = c;
  26.     else    err(f__svic->icierr,110,"recend");
  27.     return 0;
  28. }
  29. z_rnew(Void)
  30. {
  31.     f__icptr = f__svic->iciunit + (++f__icnum)*f__svic->icirlen;
  32.     f__recpos = 0;
  33.     f__cursor = 0;
  34.     f__hiwater = 0;
  35.     return 1;
  36. }
  37.  
  38.  static int
  39. z_endp(Void)
  40. {
  41.     (*f__donewrec)();
  42.     return 0;
  43.     }
  44.  
  45. #ifdef KR_headers
  46. c_si(a) icilist *a;
  47. #else
  48. c_si(icilist *a)
  49. #endif
  50. {
  51.     f__elist = (cilist *)a;
  52.     f__fmtbuf=a->icifmt;
  53.     if(pars_f(f__fmtbuf)<0)
  54.         err(a->icierr,100,"startint");
  55.     fmt_bg();
  56.     f__sequential=f__formatted=1;
  57.     f__external=0;
  58.     f__cblank=f__cplus=f__scale=0;
  59.     f__svic=a;
  60.     f__icnum=f__recpos=0;
  61.     f__cursor = 0;
  62.     f__hiwater = 0;
  63.     f__icptr = a->iciunit;
  64.     f__icend = f__icptr + a->icirlen*a->icirnum;
  65.     f__curunit = 0;
  66.     f__cf = 0;
  67.     return(0);
  68. }
  69.  
  70.  int
  71. iw_rev(Void)
  72. {
  73.     if(f__workdone)
  74.         z_endp();
  75.     f__hiwater = f__recpos = f__cursor = 0;
  76.     return(f__workdone=0);
  77.     }
  78.  
  79. #ifdef KR_headers
  80. integer s_rsfi(a) icilist *a;
  81. #else
  82. integer s_rsfi(icilist *a)
  83. #endif
  84. {    int n;
  85.     if(n=c_si(a)) return(n);
  86.     f__reading=1;
  87.     f__doed=rd_ed;
  88.     f__doned=rd_ned;
  89.     f__getn=z_getc;
  90.     f__dorevert = z_endp;
  91.     f__donewrec = z_rnew;
  92.     f__doend = z_endp;
  93.     return(0);
  94. }
  95.  
  96. z_wnew(Void)
  97. {
  98.     while(f__recpos++ < f__svic->icirlen)
  99.         *f__icptr++ = ' ';
  100.     f__recpos = 0;
  101.     f__cursor = 0;
  102.     f__hiwater = 0;
  103.     f__icnum++;
  104.     return 1;
  105. }
  106. #ifdef KR_headers
  107. integer s_wsfi(a) icilist *a;
  108. #else
  109. integer s_wsfi(icilist *a)
  110. #endif
  111. {    int n;
  112.     if(n=c_si(a)) return(n);
  113.     f__reading=0;
  114.     f__doed=w_ed;
  115.     f__doned=w_ned;
  116.     f__putn=z_putc;
  117.     f__dorevert = iw_rev;
  118.     f__donewrec = z_wnew;
  119.     f__doend = z_endp;
  120.     return(0);
  121. }
  122. integer e_rsfi(Void)
  123. {    int n;
  124.     n = en_fio();
  125.     f__fmtbuf = NULL;
  126.     return(n);
  127. }
  128. integer e_wsfi(Void)
  129. {
  130.     int n;
  131.     n = en_fio();
  132.     f__fmtbuf = NULL;
  133.     if(f__icnum >= f__svic->icirnum)
  134.         return(n);
  135.     while(f__recpos++ < f__svic->icirlen)
  136.         *f__icptr++ = ' ';
  137.     return(n);
  138. }
  139.